home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / format&printf / test.mod < prev    next >
Text File  |  1993-11-04  |  597b  |  26 lines
  1. MODULE Test;
  2.  
  3. IMPORT p:Printf,f:Format,io,st:Strings,s:SYSTEM;
  4.  
  5. VAR
  6.   string:ARRAY 80 OF CHAR;
  7.  
  8. BEGIN
  9.   (* Damit das Programm auch von der Workbench aus läuft *)
  10.   p.writeProc := io.WriteString;
  11.  
  12.   p.Printf0("\[0;33;40m RED \[0;31;40m WHITE\n");
  13.  
  14.   string := "Teststring";
  15.   p.Printf2("Der String %6.8s ist %ld Zeichen lang.\n",
  16.              s.ADR(string),st.Length(string));
  17.  
  18.   string := "Test";
  19.   p.Printf2("Der String %6.8s ist %ld Zeichen lang.\n",
  20.              s.ADR(string),st.Length(string));
  21.  
  22.   f.Format2(string,"Dezimal %3ld = Hex %04lxH.\n",456H,456H);
  23.   p.writeProc(string);
  24.  
  25. END Test.
  26.